module Mod_MARdyn__LBC

use Mod_Real
use Mod_MARdim

	implicit none

      integer                                        ::  n2_xLB,n3_xLB,n4_xLB,n5_xLB
      integer                                        ::         n4mxLB,n5mxLB,n6mxLB
      integer                                        ::  n2_yLB,n3_yLB,n4_yLB,n5_yLB
      integer                                        ::         n4myLB,n5myLB,n6myLB

      real(kind=real8), dimension( 0:mxx   )         ::  rx_LBC
      real(kind=real8), dimension( 0:myy   )         ::  ry_LBC


!  wiXXLB : coefficient used in semi-implicit numerical scheme
!  -----------------------------------------------------------

      real(kind=real8), dimension(    n6   ,    n6   )         ::  wixgLB
      real(kind=real8), dimension(mxx-n6:mx,mxx-n6:mx)         ::  wixdLB
      real(kind=real8), dimension(    n6   ,    n6   )         ::  wiyiLB
      real(kind=real8), dimension(myy-n6:my,myy-n6:my)         ::  wiysLB


!  tiXXLB : independant term of semi-implicit numerical scheme
!  -----------------------------------------------------------

      real(kind=real8), dimension(    n6    ,     0:myy,mz)    ::  tixgLB
      real(kind=real8), dimension(mxx-n6:mx ,     0:myy,mz)    ::  tixdLB
      real(kind=real8), dimension(     0:mxx,    n6    ,mz)    ::  tiyiLB
      real(kind=real8), dimension(     0:mxx,myy-n6:my ,mz)    ::  tiysLB


!  vaXXLB : Lateral Boundary "Large Scale" Values of the Variables
!  vaXX : large scale values of relevant dependant variables 
!    ^X =(x->x axis border      , y->y axis border      )
!     ^X=(g->x small, d->x large, b->y small, h->y large)
!  ---------------------------------------------------------------

      REAL(kind=real4),   dimension(     0:n6 ,     0:myy,mz,5)  ::  vaxgLB,v1xgLB,v2xgLB
      REAL(kind=real4),   dimension(mxx-n6:mxx,     0:myy,mz,5)  ::  vaxdLB,v1xdLB,v2xdLB
      REAL(kind=real4),   dimension(     0:mxx,     0:n6 ,mz,5)  ::  vayiLB,v1yiLB,v2yiLB
      REAL(kind=real4),   dimension(     0:mxx,myy-n6:myy,mz,5)  ::  vaysLB,v1ysLB,v2ysLB

end
